00010		DIMENSION INM(3),MINP(7),IRD(3),RD(25),JRD(25),JM(60)
00040		EQUIVALENCE (JRD,RD),(N1,INM(1)),(N2,INM(2)),(N3,INM(3))
00060		DATA IRD/'(2A3,A2,  22F) '/
00100	1	FORMAT(7A1)
00110	12	FORMAT(3A1,I)
00115		JK=-1
00120	13	FORMAT(' TYPE INITIALS  '$)
00130		TYPE 13
00140		ACCEPT 12,INM,IO
00150		JJ=-1
00160		IF(IO.EQ.0)IO=5
00200		N='ACT'
00300		CALL IFILE(23,N)
00400	3	READ(23,1,END=2)MINP
00500		DO 4 K=1,7
00600		IF(MINP(K).NE.N1.OR.MINP(K+1).NE.N2.OR.MINP(K+2).NE.N3)
00625		1 GO TO 4
00630		REREAD 21,JM
00635		WRITE(IO,21)JM
00640	21	FORMAT(60A1)
00642		IRD(2)='A2,  '
00660		IF(K.GT.5)IRD(2)='A3,  '
00665		REREAD IRD,RD
00900		DO 6 K=7,18
00950	6	RD(K)=RD(K+3)
01000		DO 5 K=4,20
01050	5	RD(K)=RD(K+1)
01052		IF(RD(5).NE.0)GO TO 14
01053	C  FOR CRASH *
01054		DO 15 K=5,20
01056	15	RD(K)=RD(K+1)
01060	14	IF(RD(11).GT.0)GO TO 7
01070		DO 8 K=12,17
01080	8	RD(K)=RD(K+2)
01090	C  FOR THE WORD 'DET'
01100	7	DO 9 K=4,14
01110	9	JRD(K)=RD(K)
01155		IF(JJ)WRITE(IO,11)
01177		JJ=0
01200		WRITE(IO,10)(RD(K),K=1,15)
01250		JK=0
01300		GO TO 3
01310	4	CONTINUE
01320	C  QUITS WHEN ALL OF GIVEN INITIAL IS DONE.
01400		IF(JK)GO TO 3
01800	10	FORMAT(3A3,2I3,'-MNTH',I3,2(2XI2,':',I2),2I4,':',I2,I7,F8.2)
01810	11	FORMAT(8X'JOB #', 9X'TIME IN-TIME ON-TTY-CPU TIME- KKS 
01855		1- AV. K')
01900	2	END